Ви можете зробити варіант записів так
введіть muint64 = запис
регістр логічний
true: (i64: int64);
хибне: (lo32, hi32: кардинал);
кінець;
Тепер ви можете просто використовувати кардиналів, щоб заповнити ваш uint64 непідписаними даними.
Іншим варіантом було б використовувати такий код:
const майжеmaxint64 = 800000045000000 доларів;
var muint64: int64;
почати
muint64: = майжеmaxint64;
muint64: = muint64 shl 1;
кінець
|
Без підтримки компілятора у вас не так багато варіантів.
Я припускаю, що ви хочете передати значення функції у якійсь зовнішній DLL. Вам доведеться оголосити параметр як підписане 64-бітове ціле число, Int64. Тоді все, що ви можете зробити, - це передати підписане значення, яке має той самий бітовий шаблон, що і бажане беззнакове значення. Створіть собі маленький інструмент перетворювача за допомогою компілятора, який підтримує 64-розрядні цілі числа без підпису.
|
Традиційно, реалізації Broland зазнавали проблем сумісності через відсутність найбільших непідписаних, які підтримуються цільовою платформою. Я пам’ятаю, як використовував значення LongInt замість DWORD і чекав на проблеми ще з самого початку Turbo Pascal для Windows. Тоді було кардинальне щастя, але ні, D4 представив найбільше ціле число Int64 лише у підписаній формі. Знову ж таки.
Отже, ваш єдиний варіант - покластись на підписаний фундаментальний тип Int64 і молитися ... зачекайте, ні, просто використовуйте IntcastRec typecast для виконання арифметики як мінімум і найбільш значущої частини окремо.
Повернутися до постійної декларації:
конст
foo = 8000004200000001 дол .; // це спрацює, оскільки шістнадцяткове позначення не підписане за своєю природою
// однак оголошений символ foo стає підписаним значенням Int64
// спроба використовувати десяткові цифри призведе до помилки "Ціла константа занадто велика"
// див. тему "Справжні константи" у довідці D7 для отримання додаткової інформації
процедура TForm1.FormCreate (Відправник: TObject);
почати
// просто для перевірки
Заголовок: = IntToHex (foo, SizeOf (Int64) * 2);
кінець;
На жаль, іншим обхідним шляхом є зміна компілятора. Безкоштовний Pascal завжди синхронізує підписані та непідписані типи.
Цей фрагмент компілюється та дає правильний результат у Borland Delphi версії 15.0 (інакше Delphi 7).
|
Ваша відповідь
StackExchange.ifUsing ("редактор", function () {
StackExchange.using ("externalEditor", function () {
StackExchange.using ("фрагменти", function () {
StackExchange.snippets.init ();
});
});
}, "фрагменти коду");
StackExchange.ready (function () {
var channelOptions = {
теги: "" .split (""),
id: "1"
};
initTagRenderer ("". split (""), "" .split (""), channelOptions);
StackExchange.using ("externalEditor", function () {
// Потрібно запускати редактор після фрагментів, якщо фрагменти увімкнено
якщо (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using ("фрагменти", function () {
createEditor ();
});
}
ще {
createEditor ();
}
});
функція createEditor () {
StackExchange.prepareEditor ({
useStacksEditor: false,
heartbeatType: 'відповідь',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: правда,
showLowRepImageUploadWarning: true,
репутаціяToPostImages: 10,
bindNavPrevention: true,
постфікс: "",
imageUploader: {
brandingHtml: "Працює на \ u003ca href = \" https: //imgur.com/ \ "\ u003e \ u003csvg class = \" svg-icon \ "width = \" 50 \ "height = \" 18 \ "viewBox = \ "0 0 50 18 \" fill = \ "none \" xmlns = \ "http: //www.w3.org/2000/svg \" \ u003e \ u003cpath d = \ "M46.1709 9.17788C46.1709 8.26454 46,2665 7,94324 47,1084 7.58816C47.4091 7,46349 47,7169 7,36433 48,0099 7.26993C48.9099 6,97997 49,672 6,73443 49,672 5.93063C49.672 5,22043 48,9832 4,61182 48,1414 4.61182C47.4335 4,61182 46,7256 4,91628 46,0943 5.50789C45.7307 4,9328 45,2525 4,66231 44,6595 4.66231C43.6264 4,66231 43,1481 5,28821 43,1481 6,59048V11,9512C43,1481 13,2535 43,6264 13,8962 44,6595 13,8962C45,6924 13,8962 46,1709 13,2535 46,1709 11,9512V9,17788Z \ "/ \ u003e \ u003cpath d = \" M32.492 10,1419C4.492 14,114,09 41.5985 12.6954 41.5985 10.1419V6.59049C41.5985 5.28821 41.1394 4.66232 40.1061 4.66232C39.0732 4.66232 38.5948 5.28821 38.5948 6.59049V9.60062C38.5948 10.8521 38.2696 11.5455 37.0451 11.5949 521 35.4954 9.60062V6.59049C35.4954 5.28821 35.0173 4.66232 34.0034 4.66232C32.9703 4.66232 32.492 5.28821 32.492 6.59049V10.1419Z \ "/ \ u003e \ u003cpath fill-rule = \" evenodd \ "even -dd \" clipod rule = \ "clipod rule = \" = \ "M25,6622 17,6335C27.8049 17,6335 29,3739 16,9402 30,2537 15,6379C30,8468 14,7755 30,9615 13,5579 30,9615 11,9512V6,59049C30,9615 5,28821 30,4833 4,66231 29,4502 4,66231C28,99755,55609495,55609495,55459495,55459495,55459495,55409495,55409455 .1369 4.56087 21.0134 6.57349 21.0134 9.27932C21.0134 11.9852 23.003 13.913 25.3754 13.913C26.5612 13.913 27.4607 13.4902 28.1109 12.6616C28.1109 12.7229 28.1161 12.7799 28.121 12.8346C28.1256 12.885321 15,2321 24,1352 14,9821 23,5661 14,7787C23,176 14,6393 22,8472 14,5218 22,5437 14,5218C21,7977 14,5218 21,2429 15,0123 21,2429 15,6887C21,2429 16,7375 22,9072 17,633525.6622 17.6335ZM24.1317 9.27932C24.1317 7.94324 24.9928 7.09766 26.1024 7.09766C27.2119 7.09766 28.0918 7.94324 28.0918 9.27932C28.0918 10.6321 27.2311 11.5116 26.1024 11.5116C24.9737 11.5116 \ u003 \ \ M16.8045 11.9512C16.8045 13.2535 17.2637 13.8962 18.2965 13.8962C19.3298 13.8962 19.8079 13.2535 19.8079 11.9512V8.12928C19.8079 5.82936 18.4879 4.62866 16.4027 4.62866C15.1594 4.62866 14.27966 4.6136.66 13.66 13.66 13.6 13.6 13.6 13.6 13.6 13 13 13 13 13 13 14 15 16 16 16 17 18 19 8.57809 4.89931 7.9466 5.5079C7.58314 4.9328 7.10506 4.66232 6.51203 4.66232C5.47873 4.66232 5.00066 5.28821 5.00066 6.59049V11.9512C5.00066 13.2535 5.47873 13.8962 6.51203 13.8962C7.57932 832.909 8149 8149 8149 8149 8149 8149 8149 8149 8149 8119 8149 8149 810 5104 6.91179 10.893 7.58817 10.893 8.94108V11.9512C10.893 13.2535 11.3711 13.8962 12.4044 13.8962C13.4375 13.8962 13.9157 13.2535 13.9157 11.9512V8.90741C13.9157 7.58817 14.3365 6.91179 1 5,4269 6.91179C16.4027 6,91179 7,58817 16,8045 16,8045 8.94108V11.9512Z \ "/ \ u003e \ u003cpath д = \» M3.31675 6.59049C3.31675 5,28821 2,83866 4,66232 1,82471 4,66232 0,313354 4.66232C0.791758 5,28821 0,313354 6.59049V11.9512C0.313354 13,2535 0.791758 13,8962 1,82471 3,31675 13.8962C2.85798 13,8962 13,2535 3,31675 11.9512V6.59049Z \ "/ \ u003e \ u003cpath д = \" M1.87209 0.400291C0.843612 0,400291 0 0 1,1159 2,87869 0,822846 1.98861C0 3,57676 1,87209 3,57676 3,7234 3.57676C2.90056 2,87869 3.7234 1.98861C3.7234 1.1159 2.90056 0.400291 1.87209 0.400291Z \ "fill = \" # 1BB76E \ "/ \ u003e \ u003c / svg \ u003e \ u003c / a \ u003e",
contentPolicyHtml: "Внески користувачів, ліцензовані під \ u003ca href = \" https: //stackoverflow.com/help/licensing \ "\ u003ecc by-sa \ u003c / a \ u003e \ u003ca href = \" https://stackoverflow.com / legal / content-policy \ "\ u003e (політика щодо вмісту) \ u003c / a \ u003e",
allowUrls: true
},
onDemand: правда,
discardSelector: ".discard-answer"
, odmahShowMarkdownHelp: true, enableTables: true, enableSnippets: true
});
}
});
Дякуємо за надання відповіді на Stack Overflow!
Будь ласка, не забудьте відповісти на запитання. Надайте деталі та поділіться своїми дослідженнями!
Але уникайте ...
Прохання про допомогу, роз’яснення або відповідь на інші відповіді.
Складання заяв на основі думки; підкріпіть їх посиланнями або особистим досвідом.
Щоб дізнатись більше, перегляньте наші поради щодо написання чудових відповідей.
Чернетку збережено
Чернетку відкинуто
Зареєструйтесь або увійдіть
StackExchange.ready (function () {
StackExchange.helpers.onClickDraftSave ('# login-link');
});
Зареєструйтесь за допомогою Google
Зареєструйтесь за допомогою Facebook
Зареєструйтесь за допомогою електронної пошти та пароля
Подати
Опублікувати в якості гостя
Ім'я
Електронна пошта
Обов’язково, але ніколи не показується
StackExchange.ready (
function () {
StackExchange.openid.initPostLogin ('. New-post-login', 'https% 3a% 2f% 2fstackoverflow.com% 2fquestions% 2f6378107% 2fhow-to-define-an-unsigned-64-bit-integer-in-delphi7% 23new-answer ',' question_page ');
}
);
Опублікувати в якості гостя
Ім'я
Електронна пошта
Обов’язково, але ніколи не показується
Опублікуйте свою відповідь
Викинути
Натискаючи «Опублікувати свою відповідь», ви погоджуєтесь з нашими умовами надання послуг, політикою конфіденційності та політикою файлів cookie
Не відповідь, яку ви шукаєте? Перегляньте інші запитання, позначені тегом delphi uint64, або задайте власне запитання.